home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / rpgf_pc2.exe / TSTIN1.RPF < prev    next >
Text File  |  1990-04-17  |  875b  |  35 lines

  1. -- TSTIN1.RPF -- Test RPG/free input file 1
  2.  
  3. -- Note: This does NOT generate a compilable RPG III program
  4. --       It just generates a file for comparison with TSTOUT.RPG
  5.  
  6. /FILE
  7. FLIBLIST IF  E                    DISK 
  8. FBDF810  CF  E                    WORKSTN 
  9. F                                        RRN   KSFILE SFLREC 
  10.  
  11. /INPUT
  12. I            DS 
  13. I                                        1   6 ODSDAT 
  14. I                                        1   60SAVDAT
  15.  
  16. /FIRSTCOL 7 
  17.             DS 
  18.                                         1   6 PRMDAT 
  19. /FIRSTCOL 6 
  20. I                                        1   60SAVSYS 
  21.  
  22. /calc
  23.  
  24. /DEFINE infile  custfl
  25. /DEFINE tst_ind    *in90
  26.  
  27. lr() cond(01 *in02 *inn03) add f1$$$ f2 r### len(5 0) h() +
  28.     pos(01) neg(*in02) zer(tst_ind) 
  29.  
  30. FOR i = 1 maxcus
  31.     IF    x > y
  32.         readpe    inkey    infile    ERR(*in01) BOF(99)    
  33.     ENDIF
  34. ENDFOR
  35.